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EDTSFINNOTRUM = Call EDTSFIXNOTRUN from EDTSSCR 16-Sep-1984 AX-11 Bliss-32 v4.0-74 p 1 
14-8 se0-1984 CH Hn CR ta ME NO I — 


; 1-001 = Original. JBS 19-Apr-1983 


608) ZTITLE “EDTSFIX oe dl - Call EDTSFIXNOTRUN from EDTSSCRUPDATE® 
¢ MODULE EDTSFIXNOTRUM ( ' Call eA baad bp from EDT$SCR Aye TE 
OOL spent = 'v04-000' ile: FIXNOTRUM.BLI Edit: JBS1001 | 
B33 : BEGIN | 
G07 i Temmenegerpenny weno ate! tree eerste eter 
.* * 
009 | i+ COPYRIGHT (c) 1978, 1980, 1982, 1984 8 ° | 
0010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. ® 
id : i: ALL RIGHES. RESERVED. * 
. e 
Gor§ 1 ie rs fe Serie 1S FURNISHED UNDER A LICENSE AND MAY BE yee AND cop tee * 
014 1 !'* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE ‘| ws THE * 
0015 1 !* INCLUSION OF THE ABOVE ao poneue NOTICE. THIS SOFTWARE OR OTHER * 
go18 1 '* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVA TLABLE TO ANY * 
001 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
Bats : bo TRANSFERRED. * 
‘e * 
0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
65 ¢ : Ae CORPORATION. * 
.* * 
0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
seh 
we ® 
0038 : PTTITITILILII LILI LI TLLLLL LLL LL LLL T LL LLLiTiLiTiieiT ii iiiiiiiitiiitiie 
00 ! 
$080 | 
Bos 1 !4¢ 
ttt ' } FACILITY: EDT -- The DEC Standard Editor 
0034 1 | ABSTRACT: 
0035 1! 
0036 1! Call EDTSFIXNOTRUN for EDTSSCRUPDATE, then 
it 44 : make sure the caller is in memory before returning. 
s't84 : ENVIRONMENT: Runs at any access mode - AST reentrant 
9041 AUTHOR: John Sauter, CREATION DATE: April 19, 1983 
0043 1 ! MODIFIED BY: 
044 1! 
045 1 
1 
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2 
EDTSFIXNOTRUM = Call EDTSFIXNOTRUN from EDTSSCR 18-sep-19 4 00:36:48 AX-11 Ol iesnse V4.0-74 
EDTSSFIX_NOTRUNC_NOOVERLAY = call EDTSSFIX_NOTR 14-Sep-1984 7:25:09 EDT. SRCJFIXNOTRUM.BLI; 
§ ! RSBTTL "EDTSSFIX_NOTRUNC_NOOVERLAY = call EDTSSFIX_NOTRUNC from EDTS$SCRUPDATE' 
654 1 GLOBAL ROUTINE EDTSSFIX_NOTRUNC_NOOVERLAY ! Call EDTSSFIX_NOTRUNC from EDTSSCRUPDATE 
? 5 ! : NOVALUE = 
$39 1 !e+ 
0636 : } FUNCTIONAL DESCRIPTION: 
660 1 / This routine is called by EDTSSCRUPDATE to call 
661 1! EDTSSFIX_NOTRUNC. Before returning, this routine 
666 1 ! makes sure its caller is in memory, so the two routines 
ret : can overlay each other. 
665 | FORMAL PARAMETERS: 
9 a 
0669 IMPLICIT INPUTS: 
0671 | NONE 
Oer8 IMPLICIT OUTPUTS: 
Sen 
0677 ; ROUTINE VALUE: 
Tn 
0681 | SIDE EFFECTS: 
0683 1! NONE 
0684 1! 
bea 1 
pene BEGIN 
0689 EXTERNAL ROUTINE 
0690 EDTS$FIX_NOTRUNC : NOVALUE, ' Fix screen data base for nmotruncate mode 
309) EDTS$LOABD_SCRUPDATE : NOVALUE; ' Load module EDT$SCRUPDATE into memory 
re EDTSSFIX_NOTRUNC (); 
694 EDTS$$LOAD_SCRUPDATE (); 
695 RETURN; 
696 END; ! of routine EDTS$FIX_NOTRUNC_NOOVERLAY 


-TITLE EDTSFIXNOTRUM EDTSFIXNOTRUM = Call EDTSFIXNOTRU 


from EDTSSCR 
IDENT \V04-000\ 


-EXTRN EDTS$FIX_NOTRUNC 
-EXTRN EDTS$$LOAB_SCRUPDATE 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 
0000 00000 .ENTRY EDTS$$FIX_NOTRUNC_NOOVERLAY, Save nothing 


3 0654 | 
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SIAN RTPNOUNH CRAGIN MOLE STARS ARRSER TECREEIES QQS3:G9. HES NON NadH ATH 
GOSHEOSE HBB FB GRR ULE. HB: ERTERE LL MIRC 


; Routine Size: 17 bytes, Routine Base: _EDTSCODE + 0000 


: 37 0697 1 
> 128 0698 1 !<BLF/PAGE> 


1) R | 
EDTSFIXNOTRUM EDTSFIXNOTRUM = Call EDTSFIXNOTRUN from EDTSSCR 16-Sep-19 AX-11 BLi 4.0-74 Page 5. 
Oa e000 EDTSSFIX_NOTRUNC_NOOVERLAY = call EDTSSFIX_NOTR 14-Sep 71982 99: $6: 9 febr. SRCIF Bean -BLI; . (4) 
0760 ! END ! of module EDTSFIXNOTRUM 

46 0 ELUDOM 


PSECT SUMMARY 
Name Bytes Attributes 
_EDTSCODE 17 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


ete a ere et ee te Syuke(§ cooweeee Pages Processing 
; File Total Loaded Percent Mapped Time 
> _$255$DUA28: 1. SRCIEDT 3221 377 0 0 40 00:00.2 
: ~$255$DUA28: SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
; COMMAND QUALIFIERS 
; 1 «tae ttt itt mealtimes MSRC$:F IXNOTRUM.BLI/UPDATE=(ENHS:F 
; Size: 17 code + 0 data bytes 
; Run Time: 09: 8.5 
Elapsed Time 10.2 


; Lexemes/CPU-Min: 13333 
; poe | Used: 49 pages 
; Compilation Complete 
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